home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / tinydb / tinytst2.fr_ / tinytst2.fr (.txt)
Encoding:
Visual Basic Form  |  1997-12-19  |  7.4 KB  |  240 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Search"
  4.    ClientHeight    =   3480
  5.    ClientLeft      =   3660
  6.    ClientTop       =   2010
  7.    ClientWidth     =   3945
  8.    LinkTopic       =   "Form2"
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   3480
  11.    ScaleWidth      =   3945
  12.    Begin VB.CommandButton Command2 
  13.       Caption         =   "Cancel"
  14.       Height          =   255
  15.       Left            =   1080
  16.       TabIndex        =   5
  17.       Top             =   3000
  18.       Width           =   975
  19.    End
  20.    Begin VB.CommandButton Command1 
  21.       Caption         =   "Search"
  22.       Height          =   255
  23.       Left            =   120
  24.       TabIndex        =   4
  25.       Top             =   3000
  26.       Width           =   975
  27.    End
  28.    Begin VB.TextBox Text1 
  29.       Height          =   285
  30.       Left            =   120
  31.       TabIndex        =   2
  32.       Top             =   2400
  33.       Width           =   1935
  34.    End
  35.    Begin VB.Frame Frame2 
  36.       Caption         =   "Comparison"
  37.       Height          =   3255
  38.       Left            =   2160
  39.       TabIndex        =   1
  40.       Top             =   120
  41.       Width           =   1695
  42.       Begin VB.OptionButton Option7 
  43.          Caption         =   "EndGreater"
  44.          Height          =   195
  45.          Index           =   10
  46.          Left            =   120
  47.          TabIndex        =   22
  48.          Top             =   2880
  49.          Width           =   1335
  50.       End
  51.       Begin VB.OptionButton Option7 
  52.          Caption         =   "StartGreater"
  53.          Height          =   195
  54.          Index           =   9
  55.          Left            =   120
  56.          TabIndex        =   21
  57.          Top             =   2640
  58.          Width           =   1455
  59.       End
  60.       Begin VB.OptionButton Option7 
  61.          Caption         =   "EndLess"
  62.          Height          =   195
  63.          Index           =   8
  64.          Left            =   120
  65.          TabIndex        =   20
  66.          Top             =   2400
  67.          Width           =   1455
  68.       End
  69.       Begin VB.OptionButton Option7 
  70.          Caption         =   "StartLess"
  71.          Height          =   195
  72.          Index           =   7
  73.          Left            =   120
  74.          TabIndex        =   19
  75.          Top             =   2160
  76.          Width           =   1335
  77.       End
  78.       Begin VB.OptionButton Option7 
  79.          Caption         =   "EndsLike"
  80.          Height          =   195
  81.          Index           =   6
  82.          Left            =   120
  83.          TabIndex        =   18
  84.          Top             =   1920
  85.          Width           =   1095
  86.       End
  87.       Begin VB.OptionButton Option7 
  88.          Caption         =   "StartsLike"
  89.          Height          =   195
  90.          Index           =   5
  91.          Left            =   120
  92.          TabIndex        =   17
  93.          Top             =   1680
  94.          Width           =   1215
  95.       End
  96.       Begin VB.OptionButton Option7 
  97.          Caption         =   "Has"
  98.          Height          =   195
  99.          Index           =   4
  100.          Left            =   120
  101.          TabIndex        =   16
  102.          Top             =   1440
  103.          Width           =   615
  104.       End
  105.       Begin VB.OptionButton Option7 
  106.          Caption         =   "<>"
  107.          Height          =   195
  108.          Index           =   3
  109.          Left            =   120
  110.          TabIndex        =   15
  111.          Top             =   1080
  112.          Width           =   615
  113.       End
  114.       Begin VB.OptionButton Option7 
  115.          Caption         =   "<="
  116.          Height          =   195
  117.          Index           =   2
  118.          Left            =   120
  119.          TabIndex        =   14
  120.          Top             =   840
  121.          Width           =   615
  122.       End
  123.       Begin VB.OptionButton Option7 
  124.          Caption         =   ">="
  125.          Height          =   195
  126.          Index           =   1
  127.          Left            =   120
  128.          TabIndex        =   13
  129.          Top             =   600
  130.          Width           =   615
  131.       End
  132.       Begin VB.OptionButton Option7 
  133.          Caption         =   "="
  134.          Height          =   195
  135.          Index           =   0
  136.          Left            =   120
  137.          TabIndex        =   12
  138.          Top             =   360
  139.          Width           =   615
  140.       End
  141.    End
  142.    Begin VB.Frame Frame1 
  143.       Caption         =   "Field to Search"
  144.       Height          =   1935
  145.       Left            =   120
  146.       TabIndex        =   0
  147.       Top             =   120
  148.       Width           =   1935
  149.       Begin VB.OptionButton Option1 
  150.          Caption         =   "Zip"
  151.          Height          =   255
  152.          Index           =   5
  153.          Left            =   120
  154.          TabIndex        =   11
  155.          Top             =   1560
  156.          Width           =   1575
  157.       End
  158.       Begin VB.OptionButton Option1 
  159.          Caption         =   "State"
  160.          Height          =   255
  161.          Index           =   4
  162.          Left            =   120
  163.          TabIndex        =   10
  164.          Top             =   1320
  165.          Width           =   1575
  166.       End
  167.       Begin VB.OptionButton Option1 
  168.          Caption         =   "City"
  169.          Height          =   255
  170.          Index           =   3
  171.          Left            =   120
  172.          TabIndex        =   9
  173.          Top             =   1080
  174.          Width           =   1575
  175.       End
  176.       Begin VB.OptionButton Option1 
  177.          Caption         =   "Address2"
  178.          Height          =   255
  179.          Index           =   2
  180.          Left            =   120
  181.          TabIndex        =   8
  182.          Top             =   840
  183.          Width           =   1575
  184.       End
  185.       Begin VB.OptionButton Option1 
  186.          Caption         =   "Address1"
  187.          Height          =   255
  188.          Index           =   1
  189.          Left            =   120
  190.          TabIndex        =   7
  191.          Top             =   600
  192.          Width           =   1575
  193.       End
  194.       Begin VB.OptionButton Option1 
  195.          Caption         =   "Name"
  196.          Height          =   255
  197.          Index           =   0
  198.          Left            =   120
  199.          TabIndex        =   6
  200.          Top             =   360
  201.          Width           =   1575
  202.       End
  203.    End
  204.    Begin VB.Label Label1 
  205.       Caption         =   "Search Phrase:"
  206.       Height          =   255
  207.       Left            =   120
  208.       TabIndex        =   3
  209.       Top             =   2160
  210.       Width           =   1935
  211.    End
  212. Attribute VB_Name = "Form2"
  213. Attribute VB_GlobalNameSpace = False
  214. Attribute VB_Creatable = False
  215. Attribute VB_PredeclaredId = True
  216. Attribute VB_Exposed = False
  217. Private Sub Command1_Click()
  218. flag = False
  219. For a = 0 To 5
  220. If Option1(a).Value = True Then flag = True: Field$ = Option1(a).Caption
  221. Next a
  222. If flag = False Then MsgBox "Must Select a field to search.": Exit Sub
  223. flag = False
  224. For a = 0 To 10
  225. If Option7(a).Value = True Then flag = True: comp$ = Option7(a).Caption
  226. Next a
  227. If flag = False Then MsgBox "You must select a comparison operator.": Exit Sub
  228. If Trim$(Text1) = "" Then MsgBox "Please enter a search parameter.": Exit Sub
  229. searchfor = Text1.Text
  230. Form1.Label3 = "Search Started @: " + Time$
  231. MyDB.FindFirst Field$, comp$, searchfor
  232. Form1.Label4 = "Search Ended @: " + Time$
  233. cancelflag = False
  234. Form2.Hide
  235. End Sub
  236. Private Sub Command2_Click()
  237. cancelflag = True
  238. Form2.Hide
  239. End Sub
  240.